object frmFicheiroRejeicao: TfrmFicheiroRejeicao Left = 225 Top = 112 BorderStyle = bsNone Caption = 'frmFicheiroRejeicao' ClientHeight = 486 ClientWidth = 752 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Image1: TImage Left = 0 Top = 0 Width = 752 Height = 486 Align = alClient Picture.Data = {} Stretch = True end object Label1: TLabel Left = 8 Top = 8 Width = 478 Height = 29 Caption = 'Ficheiro de Rejei��o de Clientes (AEPR)' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -24 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label13: TLabel Left = 45 Top = 54 Width = 665 Height = 41 Alignment = taCenter AutoSize = False Caption = 'Este � o resultado da leitura do Ficheiro de Rejei��o do Ficheir' + 'o de Clientes. � disponibilizado sempre que o Ficheiro de Client' + 'es (AEPS) � rejeitado na totalidade. Poder� ser feita uma an�lis' + 'e da informa��o nele contida.'#13#10'Existe a hip�tese de imprimir o ' + 'ficheiro "importado" e "analisado". Para sa�r basta fazer ��Ter' + 'minar��.' Transparent = True WordWrap = True end object Label5: TLabel Left = 40 Top = 454 Width = 152 Height = 13 Anchors = [akLeft, akBottom] Caption = 'Pedir dados do pagamento' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object RxSpeedButton1: TRxSpeedButton Left = 650 Top = 450 Width = 75 Height = 25 Caption = 'Terminar' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB 0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB 0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB 0333337F777FFFFF7F3333000000000003333377777777777333} Layout = blGlyphLeft NumGlyphs = 2 Transparent = True OnClick = RxSpeedButton1Click end object RxSpeedButton3: TRxSpeedButton Left = 550 Top = 450 Width = 75 Height = 25 DropDownMenu = RxPopupMenu1 Caption = 'Imprimir' Flat = True Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000404040000000FFFFFFFFFFFF000000FFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000040404050505040 4040000000303030C0C0C0303030FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFF000000404040909090A0A0A0606060404040808080606060C0C0C03030 30FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000505050909090A0A0A0A0A0A080 8080606060404040808080B0B0B0909090303030FFFFFFFFFFFFFFFFFFFFFFFF 000000909090A0A0A0CFCFCFCFCFCF808080808080606060606060404040B0B0 B0303030FFFFFFFFFFFFFFFFFFFFFFFF606060A0A0A0CFCFCFCFCFCFC0C0C0CF CFCF808080808080606060606060202020FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 606060CFCFCFCFCFCFC0C0C0C0C0C0C0C0C0CFCFCF8080808080806060600000 00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF6F6F6FCFCFCFC0C0C0A06060C0C0C0C0 C0C0C0C0C0CFCFCF808080808080606060000000FFFFFFFFFFFFFFFFFFFFFFFF 3F3F3FCFCFCFA06060C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0CFCFCF8080808080 80000000FFFFFFFFFFFFFFFFFF3030306F6F6F7F7F7FCFCFCFC0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0CFCFCF808080000000FFFFFFFFFFFF0000006F6F6F FFFFFFFFBFBF7F7F7FCFCFCFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0AFAF AF000000FFFFFFFFFFFF3F3F3FFFFFFFFFBFBFFFBFBFFFBFBF7F7F7FCFCFCFC0 C0C0C0C0C0C0C0C0C0C0C0B0B0B0202020FFFFFFFFFFFFFFFFFF000000BFBFBF FFBFBFFFBFBFFFBFBFFFBFBF7F7F7FCFCFCFC0C0C0C0C0C0B0B0B0202020FFFF FFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFFFBFBFFFBFBFFFFFFF6F6F6F3F 3F3FCFCFCFB0B0B0202020FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 000000BFBFBFFFFFFF6F6F6F303030FFFFFF3F3F3F202020FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000003F3F3F000000FFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} Layout = blGlyphLeft Transparent = True end object Panel3: TPanel Left = 2 Top = 115 Width = 745 Height = 330 BevelInner = bvLowered Color = clWhite TabOrder = 0 object Label2: TLabel Left = 10 Top = 10 Width = 42 Height = 13 Caption = 'Header' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 10 Top = 75 Width = 45 Height = 13 Caption = 'Detalhe' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 10 Top = 265 Width = 37 Height = 13 Caption = 'Trailer' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object RxDBGrid2: TRxDBGrid Left = 10 Top = 25 Width = 730 Height = 40 Color = clWhite DataSource = dsHeader FixedColor = 13551795 Options = [dgTitles, dgColumnResize, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit] TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] Columns = < item Alignment = taCenter Expanded = False FieldName = 'A001' Title.Alignment = taCenter Visible = True end item Alignment = taCenter Expanded = False FieldName = 'A002' Title.Alignment = taCenter Visible = True end item Alignment = taCenter Expanded = False FieldName = 'A004' Title.Alignment = taCenter Visible = True end item Alignment = taCenter Expanded = False FieldName = 'A003' Title.Alignment = taCenter Visible = True end item Alignment = taCenter Expanded = False FieldName = 'A005' Title.Alignment = taCenter Visible = True end item Alignment = taCenter Expanded = False FieldName = 'A007' Title.Alignment = taCenter Visible = True end item Alignment = taCenter Expanded = False FieldName = 'A033' Title.Alignment = taCenter Visible = True end item Alignment = taCenter Expanded = False FieldName = 'A021' Title.Alignment = taCenter Visible = True end item Alignment = taCenter Expanded = False FieldName = 'A022' Title.Alignment = taCenter Visible = True end item Alignment = taCenter Expanded = False FieldName = 'Filler' Title.Alignment = taCenter Visible = True end> end object RxDBGrid3: TRxDBGrid Left = 10 Top = 90 Width = 730 Height = 165 Color = clWhite DataSource = dsDetalhe FixedColor = 13551795 Options = [dgTitles, dgColumnResize, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit] TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] Columns = < item Alignment = taCenter Expanded = False FieldName = 'A001' Title.Alignment = taCenter Width = 40 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'A020' Title.Alignment = taCenter Width = 320 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'A028' Title.Alignment = taCenter Width = 40 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'A029' Title.Alignment = taCenter Width = 220 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'Filler' Title.Alignment = taCenter Width = 90 Visible = True end> end object RxDBGrid4: TRxDBGrid Left = 10 Top = 280 Width = 730 Height = 40 Color = clWhite DataSource = dsTrailer FixedColor = 13551795 Options = [dgTitles, dgColumnResize, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit] TabOrder = 2 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] Columns = < item Alignment = taCenter Expanded = False FieldName = 'A001' Title.Alignment = taCenter Width = 40 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'A024' Title.Alignment = taCenter Width = 70 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'Filler' Title.Alignment = taCenter Width = 600 Visible = True end> end end object CheckBox1: TCheckBox Left = 15 Top = 454 Width = 13 Height = 15 Anchors = [akLeft, akBottom] TabOrder = 1 end object RichEdit1: TRichEdit Left = 12 Top = 474 Width = 729 Height = 108 Lines.Strings = ( '') TabOrder = 2 Visible = False end object MemHeader: TMemoryTable Left = 482 Top = 10 object MemHeaderA001: TStringField FieldName = 'A001' Size = 1 end object MemHeaderA002: TStringField FieldName = 'A002' Size = 4 end object MemHeaderA004: TStringField FieldName = 'A004' Size = 8 end object MemHeaderA003: TStringField FieldName = 'A003' Size = 8 end object MemHeaderA005: TStringField FieldName = 'A005' Size = 9 end object MemHeaderA007: TStringField FieldName = 'A007' Size = 9 end object MemHeaderA033: TStringField FieldName = 'A033' Size = 5 end object MemHeaderA021: TStringField FieldName = 'A021' Size = 4 end object MemHeaderA022: TStringField FieldName = 'A022' Size = 9 end object MemHeaderFiller: TStringField FieldName = 'Filler' Size = 43 end end object dsHeader: TDataSource DataSet = MemHeader Left = 516 Top = 6 end object MemDetalhe: TMemoryTable Left = 548 Top = 6 object MemDetalheA001: TStringField FieldName = 'A001' Size = 1 end object MemDetalheA020: TStringField FieldName = 'A020' Size = 50 end object MemDetalheA028: TStringField FieldName = 'A028' Size = 3 end object MemDetalheA029: TStringField FieldName = 'A029' Size = 33 end object MemDetalheFiller: TStringField FieldName = 'Filler' Size = 13 end end object dsDetalhe: TDataSource DataSet = MemDetalhe Left = 580 Top = 6 end object MemTrailer: TMemoryTable Left = 612 Top = 6 object MemTrailerA001: TStringField FieldName = 'A001' Size = 1 end object MemTrailerA024: TStringField FieldName = 'A024' Size = 8 end object MemTrailerFiller: TStringField FieldName = 'Filler' Size = 91 end end object dsTrailer: TDataSource DataSet = MemTrailer Left = 644 Top = 6 end object OpenDialog1: TOpenDialog Left = 680 Top = 8 end object RxPopupMenu1: TRxPopupMenu Left = 640 Top = 80 object FicheiroImportado1: TMenuItem Caption = 'Ficheiro Importado' OnClick = FicheiroImportado1Click end object FicheiroAnalisado1: TMenuItem Caption = 'Ficheiro Analisado' OnClick = FicheiroAnalisado1Click end end end